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SEP=-1984 NETACP.SRCIJNETLLICNT.MAR; 1 (1) 
- TITLE ata ttt - Counter support for nodes and logical-Links 
-IDENT ‘V04-000' 
«DEFAULT DISPLACEMENT ,LONG 
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COPYRIGHT (c) 1978, 1980, 1982, 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


TH OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
Pp 


1984 BY 


ON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONS "7 ITY FOR THE USE OR RELIABILITY OF ITS 
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SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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ABSTRACT: This module contains routines to maintain the Node counter 


and logical-link counter databases. 


ENVIRONMENT: Kernel mode 


~SBTTL HISTORY 


AUTHOR: Alan D. Eldridge 13-Feb-1984 
MODIFIED BY: 
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V03-002 PRB0346 Paul Beck 9-Aug-1984 18:39 
Supply error message for error returns from NETSACQUIRE_NDCOU 
Also, clear NDC interlock bit when transaction count in NDC is 
decremented, not just when it reaches zero. 


v03-001 RNGOOO1 Rod Gamache 23-May-1984 
Add NDC interlock bit to XWB_STS to indicate when the XwB 
has succeeded in acquiring an NDCOU block. 
Log counters when a database entry is reused. 
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0 3 : 
: ¢ ; Read and Optionally Zero Link xxx Counters 
0 : 7 = XWB_x 
0 6 5 ; XWB_x =0 ; iff zeroing 
000 28 ; LLI- “Ft = LLI_rt + K ; iff zeroing 
000 9 : Return (K) 
000 60 : 
000 61 
00068 ! 
0 o ; Read and Optionally Zero Node nnn Counters 
00063 fog = noe 
000 66 ; NDC = 0 : iff zeroing 
0000 67 : For all logicals Links to node nnn do 
000 68 3 SK SK + XWB_x * LLIUrt = LLI_Lz 
000 69 3 LLI_l2z = XWB_x + LLIort i; iff zeroing 
000 70 3 n 
0000 71 : Return (SK) 
0000 i 3 
0000 7 
$009 fe ; On IO$_DEACCESS (AR = A i d) 
; On t = Accounting recor 
0000 6 3 ” 
0000 7 ; AR = LLI_rt + XWB_x 
0000 78 3 NDC = NDC + AR 
0000 79 : 
0000 80 
0000 81 SCNFDEF 
0000 Hf SEVCDEF 
0000 8 SLLIDEF 
0000 84 SNF BDEF 
0000 85 SWOEDEF 
0000 86 SXWBDEF 
0000 87 SNETSYMDEF 
0000 88 
0000 89 
0000 90 
00000024 464 4 CNF = CNFSC_LENGTH ; Short name for readabilty 
00000190 48 $8 LOGBUF_LEN = 400 ; Length buffer for logging ctrs 
000 32 SDEFINi NDCOU 
$8 39 SDEF recourse LINKAGE .BLKQ 1 : Queue Linkage 
008 98 SDEF NOCOUSW"SIZE -BLKW 1 ; Structure size 
OOA 99 SDEF NDCOUSB_TYPE BLKB 1 ; Structure type 
00B 100 SDEF NDCOUSB_STS -BLKB 1 ; Status flag 
00 101 $ NOCOUSL _LINK BLKL 1 ; Hash Tables Linkage 
1 1 § $DEF NDCOUSW_PNA -BLKW 1 ; Remote node address 
01 105 SDEF COUSW_REFCNT .BLKW 1 ; Number of referencers 
bts 104 SDEF NDCOUSZ_ -BLKB NDCSC_LENGTH ; Counter block 
00000030 tH : 5 NDCOUSC_LENGTH =. :; Total structure length 
030 1 5 SDEFEND NDCOU 
00 108 
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SEP=19 


Page (3) 


~-PSECT NET_LOCK_IMPURE, WRT,NOEXE,LONG ; Goto impure locked area Psect 


DCOU_C_SIZE = <NDCOUSC_LENGTH + “X<F>> @ “C*X<F> ; 
EMP_2_NDC: .BLKB NDCOU_C_SIZE ; 
.PSECT NET_IMPURE, WRT,NOEXE , QUAD 
“ALIGN QUAD 


Define space for NDCOU blocks. 
during NETACP initialization 


DCOU_C_BLOCKS 512 ; 


The ‘idle 
The ‘inactive queue’ contains NDCOU with a zero 


Round up NOCOU size 
Temporary NDCOU 


; Goto impure area Psect 


Allocate the blocks (via NETSINIT_NDCOU) 


ueue' contains 


Idle NDCOU's 
Inactive NDCOU's 


start. 


Length of table 
Parameters to trim 
the Hash Table index 


; Counter calling interface 


Set if zero requested 


Set if high IPL needed 


; UNDEF INED 


Initialize Hash Table 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
0000 | 
ae 
0 1 ; rh ‘idle’ and ‘inactive’ NDCOU queue headers. 
00 1 3 absolutely unused NCCOU's. 
00 1 3 reference count but with an assigned remote node address and which are 
89 : 3 Linked into the Hash Table 
0 133 ; 
00000000' 8 134 NET$Q_NDCOU_IDLE: ADDRESS NET$Q_NDCOU_IDLE 3 
00000000° 00 1 ADDRESS NET$Q_NDCOU_IDLE 3 
00000008° 00 136 NETSQ_NDCOU_INACT: .ADDRESS NETS$Q_NDCOU_INACT 3 
00000008' it HA ADDRESS ETSQ_NDCOU_INACT 3 
001 139 ; 
001 140 ; 
Oat 1) : Setup NDCJU Hash Table -- contains no entries at the 
bo} 128 
00000080 001 144 HASH_C_LNG = 128 3 
00000000 Bat 145 HASH_V_LNG = 0 3 
00000007 3 166 HASH_S_LNG = 7 3 
$01 148 _VIELD (COU,0,<- 3 
0010 149 <ZERO, .M>,- : 
150 <HIGHIPL, .M>,- : 
151 <,6>,- o 
138 ‘ 
154 NET$GZ_HASHT_NDCOU:: LONG 0 CHASH_C_LNGJ 5 


Number of NDCOU blocks 
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00000000 * 00000000 ' 00000 0 
00000000 * 00000000 * 00000000 ' 000 
00000000 * 00000000" 00000000° 000 


~MACRO HASH_NODE_ADDRESS PARAM ; Find Hash Table addr 


MOVW PARAM, =-(SP) Push node address 
MOVZBL (SP)+,PARAM Recover low order 
INCB (SP) Make hi order nonzero 
most of the time 

Use product 

Trim to legal index 


Calc. table address 


MULB (SP) +, PARAM 

EXTZV #HASH’V_LNG,#HASH_S_LNG, PARAM, PARAM 

MOVAL NETS$GZ_RASHT_NDCOOLPARAM] ,PARAM 
.ENDM HASH_NODE_ADDRESS 


«MACRO ADDCOU offset,basel,base2,len=L,?L 3; Add counters 


hg 


ENDM SUBCOU 


i=] 
SoS 
So 
SoS 


~-PSECT NET_CODE, NOWRT,EXE ; Goto code PSECT 


CO 3 3 I  IOTNMOIOOEO 
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ee a ed a cee ce ce ee a ca ce ce ee a ed ee ee ee a ed ed eed a en ed ed eed 
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0 
05 ADD Len NDCS$'Len’_‘offset'('basel’) ,NDCS$'len'_‘offset'(*base2") 
0 BCC ; Br if no carry 
8 ¥ MNEG' Len #1,NDC$'Llen'_‘offset'("base2") 
0 .ENDM = ADDCOU 
6 -MACRO SUBCOU offset,basel,base2,len=L,?L ; Subtract counters 
0 SUB' Len NDC$'Len'_‘offset'("basel') .NDC$'Llen'_‘offset'("base2") 
L ; Br if no carry 
MNEG' Len #1,NDC$'Llen'_‘offset'("base2") 
00 


06 
51 00006000 8F 


settteed | | ‘EF 


50 00000200 8F 
00000004 ‘FF $¢ 
52 


F3 50 
50. 
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NETSINIT_NDCOU - Initialize NDC queues 

is called NETACP is started. It fills the 
with NDCOU 

None 

RO Status returned from NETSALLOCATE 


ALL other registers are preserverd. 


#*M<R1,R2> 


#NDCOU_C_BLO 
*NDCOU~C~SIZE, 
NETSALCOCATE 

C_BLOCK 
(R2) ,@NETSG_ND 
#NDCOU_C_SIZE, 
RO, 108 


#NDCOU 


#1,R0 
#*M<R1,R2> 


Initialize NDC queues 
Save regs 


Get length needed 

Go pst the storage 

If LBC, error 

Number of NDCOU's 
Insert it on the queue 
Advance to next NDCOU 
Oop, o oe 

Say “‘success 


Restore regs 
Done 
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0 : 8 * ~SBTTL NETSACQUIRE_NDCOU - Acquire Node Counter block 
¢ 0; 
C 1; This routine is getter to gain access to a node counter block. for instance, 
: § ; when an XWB (logical-Link control block) is created. 
C 4: If the block does not yet exist for that node, one is removed from the ‘idle 
0 : 5 : NDCOU’ queue. It is initialized and Linked into the Hash Table. 
5 C ; : If the idle queye is enpty. an NDCOU is removed from the front of the 
02C 8; inactive NDCOU' queue. It is removed from the Hash Table and its contents 
C 9; are logged ("database re-used event’’). It is then zeroed and Linked into the 
: y ; Hash Table under its new node address. 
002¢ : : 
002C 3; INPUTS: R3 XWB address 
8 : : : R1,RO Scratch 
$0 C 6 ; OUTPUTS: R1 Garbage (Actually NDCOU ptr, but higher levels should 
002C a never need to know that.) 
Gost 3 5 RO Status (LBS/LBC) 
002C 40; ALL other registers are preserved. 
ae 
002C rk NETSACQUIRE_NDCOU:: 3; Acquire NDCOU block 
014C 8F 6B BY f rt: PUSAR #*M<R2,R3,R6,R8> ; Save regs 
56 3 pO 0030 46 MOVL R3,R6 ; Copy XWB address 
58 SAAB 3C OO 44 MOVZWL XWBSW_REMNOD(R6) ,R8 ; Get the remote node address 
017D 30 0037 249 BSBW NE TSLOOKUP_NDCOU : Find the NDCOU block 
0D 50 E9 OQO3A 250 BLBC RO,30$ : If LBC, not in hash table 
"6S dO it 51 MOVL R2,R1 3; Transfer NDCOU ptr to R1 
040 26 ; 
0040 5 : 
0040 See 3 NDCOU found in Hash Table. If reference count is 0, then the 
Ohe6 36 3 NDCOU is also in the ‘inactive NDCOU' queue -- remove it. 
04 5 : 
12 Al BS Si 3 TSTw NDCOUSW_REFCNT(R1) ; In ‘inactive’ queue ? 
51 12 004 59 N ; If NEQ, no 
51 61 OF 0045 60 REMQUE (R1),R1 3; Else, remove it from queue 
4C 11 0048 61 BRB 90$ 3; Take common exit 
CE Bae te 
O4A 64 : Find an unused NDCOU block and Link it into the Hash Table. 
04A 66 : If there is one on the ‘idle’ queue, then remove it and use it. 
O4A 6 3 Otherwise, if there is one on the ‘inactive’ queue, then remove 
2 8 ; t, log it’s contents, unhook it from the Hash Table, and use it. 
4A 270 : 
50 900 0000'8F DO 004A 271 MOVL = #SS$_INSFMEM,RO ; Anticipate no blocks 
51 0000000 ' F F OF 21 i REMQUE @NETSQ_NDCOU_IDLE,R1 : Get an idle block 
18 C 8 7? BVC 3 VC, got one 
51 00000008'FF OF 005A 27% REMQUE @NET$Q_NDCOU_INACT,R1 : Get the last recently used one 
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ges and steels Weree 
re Node Counter 


BVS 100$ 3; If VC none, return error 


BSBW LOG_NDCOU ; Log the contents 
MOVZWL NODCOUSW_PNA(R1),R2 3; Get node address 

B H A > Get Hash Table address 
MOVL  NDCOUSL_CINK(R1),NDCOUSL_LINK(R3) ; Remove it from List 


: Initialize the NDCOU block and Link it into the Hash Table 


PUSHR #*M<R1,R3,R4,R ; Save regs 

movcS #0, (SPS #6 mipcouse LENGTH,(R1) ; Zero the block 

POPR #°A<R1,R3_R 3; Restore regs 

MOVW #NDCOUSC gh here NDCOUSW =SIZE(R1); Setup structure size 

MOVW R8,N A(R1) : Setup the node address 

MOVL ee enecovs ABST IM NDCOUSZ. NDC - j Initialize time since 
“os Fein TIMC(R1) : last zeroed 

MOVL R2 ; Prepare for subr call 

BSBW Get. HASH ; Get the table address 

MOVL R1 TaDCOUSL. OO ENK(R3) 3; Link new NDCOU into list 


: Acquire NDCOU by bumping its reference count. 


SETBIT XWBSV_STS_NDC XWBSW_STS(R6) ; Indicate we have our NDCOU 
INCW NDCOUSW_ REF CNT(R1) 3; Account for new reference 
MOVL #1,R0 3; Say ‘“‘success"' 

POPR #*M<R2,R3,R6,RB> : Restore regs 
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V L546 NETSRELEASE. NDCOU - Release claim Sn NDC 5=SEP-1984 $3339: 3% NETACP.SRCJNETLLICNT.MAR; 1 . (6) 
ne 9% ‘ -SBTTL NETSRELEASE_NDCOU - Release claim on NDCOU block 
A 11 : This routine is called to cancel a reference to an NDCOU block, e.g, when 
Bae \¢ ; an XWB (logical-Link control block) is being deallocated. 
Oag 14: Decrement the NDCOU reference count. If it goes to zero, insert the NDCOU 
4 15 ; on back of the ‘‘inactive'’ queue. 
ae 
Ons 18 ; INPUTS: R3 XWB address 
“| 3 : RO Scratch 
Ong 1 : OUTPUTS: RO Status (always LBS for now, but don't plan on it) 
OA6 : : ALL other registers are preserved. 
done 358 
00A6 : NETSRELEASE_NDCOU: : : Release claim on NDCOU block 
0106 8F 8B eae 4 PUSAR #*M<R1,R2,R8> ; Save regs 
0¢ ES OOAA 9 BBCC  #XWBSV_STS_NDC,- : Leave if NDCOU block not present 
18 OF A OAC 0 XWBSW" STSTR3) ,100$ 3 ee. else clear flag in XW 
58 3A AS 35 OAF 331 MOVZWL XWBS$W_REMNOD(RS) RS : Get remote node address 
101 0 0083 3 BSBW NETS BOKUP_NDCOU 3; Find the NDCOU block 
13 50 €9 00B6 ; BLBC R 0$ : If LBC, not there 
12 A287 «0089 4 DECW  NDCOUSW_REFCNT(R2) : One less referencer 
43 19 OOBC 35 BLSS 200$ ; If LSS, bu 
0 12 oon 36 BNEQ 100$ ; If NEQ, we're done 
OOOOOOOC'FF 62 #&O€ G9cp 3 INSQUE (R2) ,@NET$Q_NDCOU_INACT+4 ; Else, queue it to end of idle queue 
0106 8F BA O00C7 339 100$: POPR #*M<R1,R2,R8> : Restore regs 
05 eore rk RSB 3; Done 
O0OCcCc 39 200$: BUG_CHECK NETNOSTATE,FATAL ; One of various bugs 
00D0 434 
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$3 ig -SBTTL NETSFLUSH_LLI_CNT - Flush logical-Link counters 
0D 47 : 
ih 48 ; This routine is called when a logical-Link is being deleted from the 
0 +4 49 ; database. It's total counters since creation are captured and added to 
00D 50 ; the associated NDCOU block. These same counters are returned for with 
itt 32 ; the expectation that the caller may write them to some account log. 
0000 353: Basically, the following algorithm is run: 
00D0 54 ; / phe 
00D0 a2 3 Begin 
it 2$ : AR = LLI_rt + XWB_x 
D 57 ; NDC = NDC + A 
00D0 58 ; Return (AR) 
0050 sy 3 End 
00D0 60 ; 
it 61 ; 
0D0 6¢ : INPUTS: R10 LLI CNF pointer 
00D0 o> 3 R6 Non-pageable block to receive counters in NDC format 
00D0 364 ; R5 XWB pointer 
0000 365; R4 1 => Zero XWB counters 
0000 66 ; 0 => Don't zero XWB counters 
00D0 67 ; R3-RO Scratch 
00D0 68 ; 
0000 69 ; OUTPUTS: R8,R3-RO Garbage 
00D0 70 ; 
00D0 712 ALL other registers are preserved. 
00D0 Lf; 3 
0000 373 ;:- 
0000 374 NETSFLUSH_LLI_CNT:: ; Flush LLI/XWB counters to NDCOU 
00D0 $2 BBC #XWBSV_STS_NDC,- ; Br if no NDCOU block was acquired 
00D2 76 XWBSW-STSTRS) ,100$ 
00D5 a MOVZWL XWBSW_REMNOD(R5) RB ; Get remote node address 
00D9 78 3 
0009 379 : 
00D9 380 ; AR = LLI_rt + XWB_x 
0009 381 3 
00D9 $55 : : 
0009 38 BSBB  =- NETS$READ_LLI_CNT > FILL R6 block with LLI_rt + XWB 
00DB 4 384 : 
3508 85 ; 
0D8 86 ; NDC = NDC + AR 
Bpd8 fi 3 
ats 39 6sBw NE TSLOOKUP_NDCOU ; Get NDCOU block for this node 
Bape 90 BLBC ,200$ 3 if ‘ee 
0E1 91 ADDL #NDCOUSZ_NDC,R2 : Setup destination block 
Boes 35 MOVL R6,R1 : Setup source NDC block ; 
0E7 9 CLRL R 3; Say ‘don't zero, don't use high IPL' 
Spee 94 BSBW ADD_NDC ; Add counters to NDCOU block 
OEC 95 100$: RSB 3 Done 
OOED 96 
Bpee 4 200$: BUG_CHECK NETNOSTATE,FATAL 
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-SBTTL NETSREAD_LLI_CNT - Read logical-link counters 


This routine is called to read, and optionally clear, the counters for a 
te gy Baie eg The XWB contains the copy of the counters since the 


nte 
EAD 
8 1 400 
1 401; 
8 1 4 § : 
1 403; 
Be 1 404; 
OF1 405 ; last time they were zeroed. Whenever the XWB counters are zeroed, they are 
OOF 1 406 3; first added to the LLI _t aenene total'’ counter block so that the information 
8° ! rit ; is not lost either for accounting purposes or as part of the Node counters. 
aor rtf ; Basically, the following algorithm is run: 
QOOF1 411; Begin 
OOF 1 t1§ : K = XWB_x 
OOF1 413; XWB_x = ; iff zeroing 
OOF1 414 ; LLI_rt = LLI-rt + K ; iff zeroing 
OOF1 415; Return (K) 
OOF1 416; End 
OOF1 417; 
OOF1 418; 
OOF1 419; 
OOF1 420 ; INPUTS: R10 LLI CNF pointer 
OOF1 421; R6 Non=pageable block to receive counters in NDC format 
OOF1 4 ¢ : R5 XWB pointer 
OOF1 423; R4 1 => Zero XWB counters 
OOF1 424; 0 => Don't zero XWB counters 
OOF1 425; R3-RO Scratch 
OOF1 426: 
OOF 1 427 ; OUTPUTS: R3-RO Garbage 
OOF1 428; 
OOF 1 4 ; ALL other registers are preserved. 
OOF1 430; 
OOF1 431; 
OOF 1 $36 :- 
QOOF1 433 NETSREAD _LLI_CNT:: ; Read logical-Link counters 
52. 56 DO OOF1 434 AMOVL F : Point to destination NDC 
51 0084 (5 9E OOF4 435 MOVAB XWBSZ_NDC(R5),R1 : Point to source NDC : ‘ 
50 02 54 89 pore $38 BISB3 R4,#COU_M_HIGHIPL,RO ; Merge ‘'zero'’ flag with "high IPL" flag 
OOFD 438 3 
QOFD 439 : is = XWB_x : = 
OOFD 440 : XWB_x = 0 (if zeroing) 
OOFD 441 : 
OOFD ray | . : 
FFOO' 30 ta 44 6SBwW COPY_NDC 3 Copy source to destination 
0c 54 «OED B100 ree BLBC R4,100$ ; If LBC, XWB NDC wasn't zeroed 
B18 446 ; 
1 447 : LLI_rt = LLI_-rt + K 
103 429 
52 2C AA of 1 ; 450 MOVAB CNF+¢LLI$Z_NDC_RT(R10),R2; Point to ‘running total" NDC 
51 DO 0107 451 MOVL R6,R1 ; Former XWB counter data is source NDC 
be 10A $26 CLRL ; Clear ‘“'zero’’ and “high IPL" flags 
FF31° 30 Q10C 45 BSBW ADD_NDC F pyeste output NDC 
50 BY 10F 454 100$: MOVL #1,R0 ; Always successful 
0 4 ¢ $3? RSB ; Done 


~~ 
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1} $38 ~SBTTL NETSREAD_NDI_CNT - Read node counters 
113 460: 
11 461 ; This routine is called to calculate, and o wy es zero the traffic counters 
11 196 : for a given remote node. The expression (XWB_x + LLI_rt) always represents 
11 465 ; the total counters on a ye link. Thus, if a reference counter block 
11 464 ; representing this total is maintained and updated everytime the node counters 
011 465 ; are zeroed, then it is possible to ‘'zero'’ the counters with respect to the 
Bi 188 3; node counters without modifying the contents of the XwB. 
011 468 : Note that we cannot modify the XWB counter block in any way since that 
ai 188 ; counter block is used for the Logical-Link counters. 
oi 47) ; Basically, the following algorithm is run: 
113 258 : Begin 
011 474 ; SK = NDC 
0113 «475 ; NDC = 0 ; ; : iff zeroing 
B18 2f8 3 For all Logicat-Links to node nnn do 
3 egin 
0113 478 : Ko = SK + XWBLx * LLIert = LLILLz 
Bit 4 3 LLI_lz = XWB_x + LLIort : iff zeroing 
3 n 
0113 «481; Return (SK) 
0113 rt; ; End 
0113 483 ; 
0113 484 ; 
0113 485 ; 
0113 486 ; INPUTS: R8 Remote node address ; 
ott rt {4 3 Re poanpageaese block to receive counters in NDC format 
; cratc 
0113 489 ; R4 1 => Zero XWB counters 
0113 490; 0 => Don't zero XWB counters 
bit $3) : R3-RO Scratch 
MEE 195 : OUTPUTS: R3-R1 Garbage 
0113 494; RO Low bit set if successful 
bit $32 3 Low bit clear if no counter block was found 
O13 497 : ALL other registers are preserved. 
0113 499: 
011 500 ;- 
gi 28 NETSREAD_NDI_CNT:: ; Read node counters 
OE0O 8F 6B oti3 206 PUSHR #*M<R9,R10,R11> ; Save regs 
0117 504 ; 
117 505 3 Locate associated NDCOU. Copy and optionally zero it to 
at 4 507 : target NDCOU. 
117 508 : 
28 BK Be abt agggtur noc Fit onshore 
51 14 A2 05 1D 0511 MOVAB NDCOUS$Z_NDC(R2),R1 ; Point to source NDC 
- «- @ 121 ¢ MOVL R6,R ; Point to destination NDC 
50 3854 0° 124 1 MOVL R4,R ; Setup “zero NDC" flag | 
FED6' 127 14 BSBW COPY_NDC :; Copy source to destination 
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984 02: 


For each logical-Link to the remote node, copy the “ounters 
and optionally update the ‘'zero reference’’ set in tne LLI 
using the formula: 


SK + XWB_x + LL 
XWB_x + LL 


kt te 
WG LSEL CMR ELT ATT 
sstrbuatom 

TEMP = XWB_x + LLI_rt 


CNF+LLI$Z_NDC_RT(R10) ,R2 
#XWBS$Z_NDC,CNF+LLISL_ 
#COU_M-HIGHIPL,RO 
ADD_NDC_TEMP 


SK = SK + TEMP 


R6,R2 
ADD_NDC 


SK = SK = LLI_l2z 


CNF+LLI$Z_NDC_LZ(R10) ,R1 
SUB_NDC 


LLI_lz = TEMP (i.e., XWB_x 


R4 508 
TEMP_Z_NDC,R1 
OPY_NBC 


#1,R0 
#*M<R9,R10,R11> 


1:26:37 v04-00 
TLLICNT.MAR; 1 


i oe eed 


; iff zeroing 


Get logical-Link CNR 
1 for remote node 


Point to LLI_rt 

Point to XWB_x 

Say ‘use hi IPL, don't zero” 
Return with TEMP in R2 

Copy TEMP to R1 


KWB(R10),R1 


; Say ‘don't zero or use hi IPL" 
; Add TEMP to SK 


; Point to LLI_lz 
; Subtract from SK 


If LBC, zeroing not requested 
Point to LLI_l2 as destination 
Point to TEMP as source 

Copy TEMP to LLI_lz 


Say ‘‘success”’ 


Sete Se Se Ge Ge Se Be Se 
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} r 9 ‘ -SBTTL COPY_NDC - Copy NDC counters 
} r re ; This routine is calied to copy the NDC counters from src to dest. 
184 74 ; Inputs: Re Non=pageable block to receive counters in NDC format 
184 73 3: R Source NDC counters 
184 6 $ RO lbs => zero NDC counters 
184 77 3 Lbc => don't zero NDC counte 
4 r 8 ; COU_V ” HTGHIPL set => raise to *NETSC_ IPL 
O14 1 ; Outputs: ALL registers are preserved. 
184 ¢ :- 
0184 8 - SAVE_PSE 
sant 3 Be -PSECT EY LOCK_CODE ,NOWRT,GBL 
$008 288 COPY_NDC: 3; NDC(R2) <= NDC(R1) 
0c 50 O01 +€1 Q000 58 BBC #COU_V_HIGHIPL,RO,70$ ; Br if no need to raise IPL 
0004 588 DSBINT #NETSC_IPL ; Else, raise IPL now 
04 10 QOOA 589 BSBB 70$ ; Copy the counters 
000c 590 ENBINT ; Restore IPL 
05 OOOF 591 RSB 3; Return 
0010 235 
3F BB 0010 593 70$: PUSHR #*M<RO,R1,R2,R3,R4,R5> ; Save registers 
:. 2.” $8 0012 594 MOVC3 M#NDCS$C_LENGTH,(R1),(R2) ; Move the counters 
50 = 6E D 0016 595 MOVQ ( RO ; Get zero indicator, source area 
OD 50 E€9 Q019 596 BLBC 0,96$ ; Pr a we don't zero the countes 
81 00000000'GF D0 001¢ 597 MOVL.  G*EXESGL_ABSTIM,(R1)+ reset the time last zeroed 
61 ww Oe Se BP 8S 598 MOVCS #0,(SP), #0, wnndc$c LENGTH=4, tags 3; And zero the counters 
3F §6BA 600029)0=—s «5599 908: POPR #°M<RO,R1,R2,R3,R5,R5> ; Restore registers 
05 Base ret RSB 3; Done 
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02c 60? -SBTTL ADD_NDC - Add NDC counters in NDC format 
0 : ? ¢ -SBTTL ADD_NDC_TEMP - Add NDC counters & copy to temp area 
3 ese routines are called to a counters to a output buffer area. 
: 60 Th j Lled dd NDC buf f 
02C ons : Inputs: R2 Pointer to input counter area2 
O2c 609; Also the resultant storage area (ADD_NDC only) 
O02C 610; R1 Pointer to input counter areal 
O2c 611; RO lbs => zero NDC counters 7??? no-sense 
OeCc o1¢ ; Lbc => don't zero NDC counters 
Be : ei? 3 COU_V_HIGHIPL set => raise to NETSC_IPL 
09 : ei? ; Outputs: R2 Pointer to temp counter area (ADD_NDC_TEMP only) 
3 other registers are preserved. 
002C 617 ALL h i d 
002C 618; 
b05¢ 620 
002C 621 ADD_NDC_TEMP: 3 temp <= NDC(R2) 
002C 6 § ; temp <- temp + NDC(R1) 
51 DD O02C 6 PUSHL Ri ; Save counter areal 
51 52 00 OO2E 624 MOVL R2,R1 3; Copy area2 pointer 
52  00000000'EF 3 0031 625 MOVAB TEMP_Z_NDC,R2 ; Get temporary storage area address 
- 4 ita $6 BSBB COPY_NBC ; Get a copy of counter area2 
51 8EDO OO3A 627 POPL 3; Restore counter areal 
01 10 003D 628 BSBB ADD_NDC : Get NDC(R2) <= NDC(R2) + NDC(R1) 
05 003F 663 RSB 3; Return 
0040 631 
0040 O36 ADD_NDC: 3 NDC(R2) <= NDC(R1) + NDC(R2) 
0c 50 01 +€1 0040 63 BBC #COU_V_HIGHIPL,RO,70$ ; Br if no need to elevate IPL 
0044 634 DSBINT #NETSC_IPL ; Else, raise IPL 
04 10 Q04A 635 BSBB 70$ ; Get sum of counters 
004C O36 ENBINT ; Restore IPL 
05 Bren o37 RSB ; Return 
0050 639 70$: ADDCOU RSE,R1,R2,W ; Add resource errors 
0058 640 ADDOCOU RTO,R1,R2,W 3; Add response timeouts 
0066 641 ADDCOU CRC,R1,R2,W 3; Add connects received 
0071 666 ADDCOU CSN,R1,R2,W 3; Add connects sent 
Boas 64 ADDCOU BRC,R1,R2,L 3; Add bytes received 
08 644 ADDCOU BSN,R1,R2,L ; Add bytes sent 
0092 645 ADDCOU PRC,R1,R2,L 3; Add packets received 
4 966 ADDCOU PSN,R1,R2,L 3; Add packets sent 
1150 €9 6 Ag 647 LBC =—_- RO, 908 : Br if zero not requested 
3F 6 BB OAB 649 PUSHR #*M<RO,R1,R2,R3,R4,R5> ; Save regs 
81 00000000'GF DO OOAD 650 MOVL  G*EXESGL_ABSTIM.(R1)+ : Else, reset the time last zeroed 
61 18 00 6€ 00 2C 00B4 651 MOVCS #0,(SP),#O annc $C LENGTH-4,(R15 ; And zero the counters 
BA ae 636 POPR #°M<RO,R1,R2,R3,R5,R5> ; Restore regs 
05 C 654 90S: RSB 3 Done 
OBD 655 
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ubtract NOC counters 


»SBTTL 


Inputs: 


; Outputs: 


BBC 
DSBINT 
BSBB 
ENBINT 
RSB 


SUBCOU 
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SUB_NDC - Subtract NDC counters in NDC format 


This routine is called to subtract NDC counters from an output 
buffer area. 


R2 retneer to input counter area2 


lso the resultant storage area 
R1 Pointer to input counter areal 
RO lbs => zero NDC counters 7??? no-sense 


lbc => don't zero NDC counters 
COU_LV_HIGHIPL set => raise to NETSC_IPL 


ALL registers are preserved. 


; NDC(R2) <= NDC(R2) = NDC(R1) 


#COU_V_HIGHIPL,RO,70$ ; Br if no need to elevate IPL 
#NETSC_IPL : Else, raise IPL 
70$ ; Get sum of counters 

3; Restore IPL 

3; Return 
RSE,R1,R2,W ; Subtract resource errors 
RTO,R1,R2,W ; Subtract response timeouts 
CRC,R1,R2,W ; Subtract connects received 
CSN,R1,R2,W ; Subtract connects sent 
BRC,R1,R2,L ; Subtract bytes received 
BSN,R1,R2,L ; Suvtract bytes sent 
pen’ni “as'e 3; Subtract packets received 
PSN,R1,R2,L : Subtract packets sent 
RO, 90$ : Br if zero not requested 
#*M<RO,R1,R2,R3,R4,R5> 3; Save regs 


G*EXESGL_ABSTIM, (R1)+ 3; Else, reset the time last zeroed 
#0,(SP),#0,4NDC$C_LENGTH-4,(R15 ; And zero the counters 
#*M<RO,R1,R2,R5,R4,R5> ; Restore regs 


: Done 
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} . 244 ~SBTTL LOG_NDCOU - Log NDC counters | 
135A 639 ; This routine logs the NDC counters before re-using the NDC counter 
! : f ? 3 block. 
: rn § 3 INPUTS: R1 NDCOU block to be re-used 
: ry q : 3 OUTPUT: RO Garbage 
; : 4 $ ; ALL other registers are preserved. 
13A 7 3 LOG_NDCOU: 
OFFE 8F ge 135A 7 PUSHR #*M<R1,R2,R3,R4,R5,R6,R7,R8,R9,RIO,R11> ; Save registers 
58 10 Al C 01 710 MOVZWL NDCOUSW_PNA(R1).RB 3; Get the remote node address 
5B 00000000'EF 00 14 711 MOVL NETSGL_CNR_NDI,R11 © ; Get root of NDI database 
aes BS 16 014 ig NETSNDT_BY_ADD : Find CNF for old remote node 
3 0 §? O14F 671 BLBC R $ ; Exit on error 
51 019¢ BF 3¢ 132 714 MOVZWL #LOGBUF_LEN+12,R1 : Get Length of buffer 
FEA6" 30 015 715 BSBW NETSALLOCATE z Allocate a buffer from ACP pool 
2A 50 €9 OSA 716 BLBC R ; Exit on error 
OOOOOOOO'FF 62 OF O15D 717 INSQUE (R2),@NET$GQ_TMP_BUF ; Insert buffer on tmp_buf queue. 
08 A251 «80 0164 718 MOVW § R1,NOCOUSW_STZE(R2) : Set size of buffer 
Oc A2 9E 0168 «719 MOVAB  12(R2),R3 ; Point to output buffer 
B198 es SCNFFLD ndi,s,cnt,R9 ; Read counters request 
06 AB O17 721 BISW #NETSM_CLRCNT!NETSM_LOGDBR,- ; Force counters to be logged 
00000000 ' EF 0175 166 NETSGL_FLAGS 3 when read 
Q0000000"EF 16 O17A 7 JSB NETSNDI_S_CNT ; Read & log the counters 
06 AA 0180 724 BICW  #NETSM_CLRCNT!NETSM_LOGDBR,- ; Clean up flags 
00000000 ' EF b186 725 NETSGL_FLAGS 
OFFE 8F BA 018 726 90$: POPR #*M<R1,R2,R5,R4,R5,R6,R7,R8,RI,RIO,R11> ; Restore registers 
05 bie tse RSB ; Done 
0184 18 -RESTORE_PSECT 
0184 730 
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the ty GET. HASH_ADD hl - Get the table enthy add SEP-1 1382 83: $§ ‘3 ENETACP. SREINETLLICNT.MAR: 1 . (14) 
} r Ef ¢ . -SBTTL GET_HASH_ADDR - Get the table entry address 
1846 734; 
184 735 ; INPUTS: R3 Scratch 
184 7 § : Re Node address 
184 737; K NDCOU address or zero if none 
} r f 3 ; RO Scratch 
184 740 ; OUTPUTS: R3 Address of NDCOUSL_LINK biased ptr to the NDCOU 
} r oi) 3 Re sees Table address for entry 
184 ig $ RO "7 LBS. NDCOUSL <b ime (R3) points to the R1 NDCOU 
: 2 ee : If LBC, NDCOUSL-LINK(R3) contains a zero 
184 rs 
or 4 74? GET _HASH_ADDR : Get the table entry address 
Ht ree RASH “NODE ADDRESS R2 3; Get Hash table address 
50 F4 A2 GE $19 750 MOVAB =NDCOUSL_LINK(R2),RO ; Prepare for scan 
53 50 dO OIA 751 10$: MOVL RO,R 3; Update ‘'previous NDCOU"’ 
0c AS 651 =D1 SCOOTA 036 CMPL R1,NDCOUSL_LINK(R3) : Is this the previous NDCDU 
OA 13 BIA 75 BEQL : If EQL yes, we're done 
50 OC A3 8 1A9 = 754 MOVL NDCOUSL_LINK(R3) ,RO ; Get pest anery 
Fl 1 1AD 6 755 BNEQ 10$ 3 al, oop 
50 D4 O1AF 136 CLRL = RO : NFR noe U not in List" 
03.—=si1 181 75 BRB 100$ : . e common exit 
50 01 00 0183 758 90$: MOVL #1,R0 : Say "'R1 NDCOU was in List’’ 
05 0186 759 100$: RSB ; Done 
01B7 760 
01B7 761 
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NETSLOOKUP_NDCOU = Find NDCO Hash Ta -SEP-1984 Q2: NETACP.SRCINETLLICNT.MAR; 1 
187 163 ; -SBTTL NETSLOOKUP_NDCOU - Find NDCOU in Hash Table 
1B7 5; 
187 ég : INPUTS: R Remote node address 
1B7 fe ; R Scratch 
1B7 °8 ; P Scratch 
187 £8 3 
187 770; OUPUTS: Re wpcoy pointer 
1B? 771: RO LBS if found 
187 ah : LBC otherwise 
187 oe ; ALL other registers are preserved. 
1B? 776 := 
1B7 58 NE TSLOOKUP_NDCOU: 3; Find NDCOU in Hash Table 
50 D4 0187 ree CLRAL RO ; Assume lookup failure 
52 58 00 +44 444 MOVL R8B,R2 ; Get remote node address 
o1B¢ 781 HASH_NODE_ADDRESS R2 t Get Hash Table address 
52 F4A2 QE 01D4 at MOVAB -NDCOUSL_LINK(R2),R2 : Prepare for scan 
52 OC A2 09 1D8 784 10$: MOVL NDCOUSL_CINK(R2) ,R2 3; Travel List 
08 1 1D0C 785 BEQL 3; If EQL, at end of List 
10 A2 58 «BI 106 786 CMPW R8 ,NDCOUSW_PNA(R2) : Is this it ? 
F412 O1F2 787 BNEQ 10% : If NEQ no, loop 
50 D6 O1E4 788 INCL RO : Say “'NDCOU found" 
05 O166 789 100$: RSB ; Done 
O1E7 790 
O1E7 39791 
O1E7 792 .END 
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NETLLICNT 
Symbol table 


NETSGL_FLAGS 
NETSGQ_TMP 


TRSC~PRT_ECL 
TRSC_PRI-RTHRU 


x 
XW3$B_ACCESS 
XWB$B~DATA 


XWBSB_X_FLW 
XWBSB_X_FLWCNT 
XWBSC~ COMLNG 


XWBSC~ 
XWB$C~RPRNAM 


M12 
- Counter support for nodes and Logical- » 3 


RReeeeee 
RRAAREee 


a 


RRARRREEE 
ReeReeene 


SOOoOoooooooooowseFf&ooo 
SOooooooooooo 
SRER OPS CUE OES 
DHOnMOSOwOD 


FORO OTDOMPEO— 
FODOLOOSWMLIOPMMoOonyLON 


SOoooooooooooooooooooooooooooooofd 


SOOoOooOoOOoOOoOoSooooo 


SoOoOoooooooo 
— 
OR 4 


Bie 


VIENBDONWD 


CEE OOOOOOOO 


cr > 
xn nx x 


VUE "PI PoOo-kom 
cro ro 


>> 
RX 


o 
ODO 4 4 Hh Ht SH Ht SH Ht 1 
DANAAMNMNMNMNMMNM 


04-00 P 
LLICNT.MAR; 1 


vo 


N 12 
NETLLICN - Counter support for nodes and logical= 16-SEP-1984 01:26: o V04-00 
- ° g- SEE] Hn 83 g NETLLICNT.MAR;1 


LICNT 9 : 
Symbol table 9 : ¢: 


oz 
be 72 
2 

a 4 
zo 


Pee 4) 


EPs 
ao 
us 


XWBSS_ 
XWB$S—COMLNG 
XWB$S~CON BLK 
XWBSS-DATA 
XWBS$S_DT 
XWBSS_FLG 


XWBSS FORK 
XWBSS FREE CXB 


XWBST— 
XWBST"DATA 
XWBST"DT 
XWBST“LI 
XWB$T~LOGIN 
XWB$T~LPRNAM 
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Psect synopsis -SEP- 


tem enw ane nrce snes ond 


! i _Psect synopsis ! 


ecm ea meaneose eeu + 


PSECT name Allocation PSECT No. Attributes 
. ‘ 00000000 ( 2} 00 ( QO.) NOPIC USR 
SABSS 00000030 ( 48.) 8} ( -) NOPIC  USR 
NET_LOCK_ IMPURE Hs i ( 48.) § ( §-} NOPIC  USR 
NET_ IMPURE 0000210 ( 528.) 03 ( 3.) NOPIC USR 
CODE Sas a ee ( 487.) 04 ( 4.) NOPIC  USR 
NET_LOCK_CODE 0000018C ( 396.) 05 ¢( 5.) NOPIC  USR 


Initialization 29 00:00:00.07 00:00:00.39 
somnane processing 128 00:00:01.02 eS Ek PT 
367 00:00:11.61 00:00:18.34 

Synbol table sort 0 00:00:01.49 00:00:01.58 
s2 145 00:00:02.71 00:00:03.41 
Sel table output 37 00:00:00.25 00:00:00.43 
Psect synopsis output 3 00:00:00.03 00:00:00.03 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 711 00:00:17.19 00:00:29.40 


The working set Limit was 1950 pages. 


792 source Lines were read in Pass 1, producing 21 object records in Pass 2. 
38 pages of virtual memory were used to define 28 macros. 


Macro Library name Macros defined 
_$255$DUA28: mg peat os we MLB; 1 0 
“$255$DUA28: (CSHRLIBIJEVCDEF .MLB; 1 1 
“$255$DUA aaa" NETACP.OBJ NETDRV MLB; 1 1 

_8255$DUA28 : (NETACP.OBJ guet -MLB;1 ; 

_$255$DUA28: (SYS.OBJJLIB.MLB; 

“$255$DUA28: SySL IBISTARLET. MLB; 2 7 

TOTALS (all Libraries) 20 


1238 GETS were required to define 20 macros. 
There were no errors, warnings or information messages. 


| 
a ae a 


wg B NOVEC BYTE 


DawmwDw>rYr>yY 
mmmm@owm 
-crcrm no 


NOWRT NOVEC BYTE 


620335 bytes (122 pages) of virtus memory were used to buffer the intermediate cod 
There were 60 pages of symbol table space allocated to hold 1086 non-local and 42 local symbols. 
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